home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VB / UNSUPPRT / CALENDAR / UTILS.BAS < prev   
Encoding:
BASIC Source File  |  1997-01-16  |  3.0 KB  |  63 lines
  1. Attribute VB_Name = "Utils"
  2. Option Explicit
  3.  
  4. Type RECT
  5.         Left As Long
  6.         Top As Long
  7.         Right As Long
  8.         Bottom As Long
  9. End Type
  10.  
  11. Type Size
  12.         cx As Long
  13.         cy As Long
  14. End Type
  15.  
  16. Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal wOptions As Long, lpRect As RECT, ByVal lpString As String, ByVal nCount As Long, ByVal lpDx As Long) As Long
  17. Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  18. Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
  19. Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long
  20. Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  21. Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
  22. Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  23. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  24. Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
  25. Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  26. Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  27. Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  28. Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) As Long
  29. Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
  30. Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
  31. Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
  32. Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
  33. Declare Sub OleTranslateColor Lib "oleaut32.dll" (ByVal ColorIn As Long, ByVal hPal As Long, ByRef RGBColorOut As Long)
  34.  
  35. Public Const ETO_OPAQUE = 2
  36. Public Const ETO_CLIPPED = 4
  37.  
  38. Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  39.  
  40. Public Const COLOR_SCROLLBAR = 0
  41. Public Const COLOR_BACKGROUND = 1
  42. Public Const COLOR_ACTIVECAPTION = 2
  43. Public Const COLOR_INACTIVECAPTION = 3
  44. Public Const COLOR_MENU = 4
  45. Public Const COLOR_WINDOW = 5
  46. Public Const COLOR_WINDOWFRAME = 6
  47. Public Const COLOR_MENUTEXT = 7
  48. Public Const COLOR_WINDOWTEXT = 8
  49. Public Const COLOR_CAPTIONTEXT = 9
  50. Public Const COLOR_ACTIVEBORDER = 10
  51. Public Const COLOR_INACTIVEBORDER = 11
  52. Public Const COLOR_APPWORKSPACE = 12
  53. Public Const COLOR_HIGHLIGHT = 13
  54. Public Const COLOR_HIGHLIGHTTEXT = 14
  55. Public Const COLOR_BTNFACE = 15
  56. Public Const COLOR_BTNSHADOW = 16
  57. Public Const COLOR_GRAYTEXT = 17
  58. Public Const COLOR_BTNTEXT = 18
  59. Public Const COLOR_INACTIVECAPTIONTEXT = 19
  60. Public Const COLOR_BTNHIGHLIGHT = 20
  61.  
  62.  
  63.